home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / CUBE.BAS < prev    next >
BASIC Source File  |  1987-09-22  |  726b  |  27 lines
  1. ' The macro string to draw the cube and paint its sides:
  2. Plot$ = "BR30 BU25 C1 R54 U45 L54 D45 BE20 P1,1 G20 C2 G20" + "R54 E20 L54 BD5 P2,2 U5 C4 G20 U45 E20 D45 BL5 P4,4"
  3.  
  4. APage% = 1      ' Initialize values for the active and visual
  5. VPage% = 0      ' pages, as well as the angle of rotation.
  6. Angle% = 0
  7.  
  8. DO
  9.  
  10.    ' Draw to the active page while showing
  11.    ' the visual page:
  12.    SCREEN 7, , APage%, VPage%
  13.    CLS 1
  14.  
  15.    ' Rotate the cube "Angle%" degrees:
  16.    DRAW "TA" + STR$(Angle%) + Plot$
  17.  
  18.    ' Angle% is some multiple of 15 degrees:
  19.    Angle% = (Angle% + 15) MOD 360
  20.  
  21.    ' Switch the active and visual pages:
  22.    SWAP APage%, VPage%
  23.  
  24. LOOP WHILE INKEY$ = ""     ' A key press ends the program.
  25.  
  26. END
  27.